source [file join [file dirname [info script]] .. PAC.tcl]
source [file join [file dirname [info script]] .. utils.tcl]
source [file join [file dirname [info script]] .. gml_Object.tcl]
source [file join [file dirname [info script]] destroyallobject.tcl]


#Pour les autres formats d'images (JPG, BMP etc..)
package require Img

#Author : Mancone Nicolas || Razafimahazo Mathieu
#Le main du programme

proc lremove {L e} {
set pos [lsearch $L $e]
set L [lreplace $L $pos $pos]
return $L
}


proc main {name} {

	#CHARGEMENT DES SOURCES
	#source InfoPanel.tcl
	#source MiniMap.tcl
	source PacCraft.tcl
	
	#INSTANCIATION DU PERE
	PacCraft $name ""
	
	#LANCEMENT D'INTROSPACT
	source ../introspact.tcl
	Introspact I $name

}

main pac